home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / programs / opaquemove / install / install-opaquemove < prev   
Text File  |  1997-05-19  |  9KB  |  228 lines
  1. ;;----------------------------------------------------------------------------
  2. ;;
  3. ;; Install-OpaqueMove - OpaqueMove installation script for Installer
  4. ;;
  5. ;; Copyright © 1996 Steve Koren, All Right reserved.
  6. ;;
  7. ;; Use following Icon tooltypes / Command line options:
  8. ;; APPNAME=OpaqueMove
  9. ;; MINUSER=AVERAGE
  10. ;;----------------------------------------------------------------------------
  11.  
  12. (complete 0)
  13. (set locale 0)
  14.  
  15. ;;------------------------------ english messages ----------------------------
  16.  
  17. (if (= @language "english")
  18.  (
  19.  
  20.    (set #welcome           (cat "Welcome to the " @app-name " installation "
  21.                                 "process."))
  22.    (set #bad-MUI        (cat "You need at least MUI 3.2 to use " @app-name
  23.                                 "2.0."))
  24.    (set #bad-OS            (cat "You need at least OS 3.0 to use " @app-name
  25.                                 "2.0."))
  26.    (set #dir-choice     (cat "Select the directory where the " @app-name
  27.                                 " Directory will be created."))
  28.    
  29.    (set #copy         (cat "Copying " @app-name "..."))
  30.    (set #wbstrt            (cat "Installing " @app-name " in WBStartup"))
  31.    (set #diricon           (cat "Installing directory icon..."))
  32.    (set #doc-copy         (cat "Copying Documentation..."))
  33.    (set #tooltype-prompt   (cat "Setting tooltypes..."))
  34.    (set #update            (cat "Updating "))
  35.    
  36.    (set #browser-prompt    (cat "The HTML documentation is best read with a web "
  37.                                 "browser such as IBrowse which supports "
  38.                                 "tables.  Enter a the command used to send a "
  39.                                 "URL to your web browser.  A %s will be "
  40.                                 "replaced by the URL of the OpaqueMove "
  41.                                 "documentation.  For example, for IBrowse you "
  42.                                 "might enter\n\n"
  43.                                 "Work:IBrowse/IBrowse URL %s"))
  44.    
  45.    (set #replbr-prompt     (cat "A browser invocation line already exists.  Do "
  46.                                 "you wish to update it?"))
  47.    
  48.    (set #wbstart-prompt    (cat "Do you wish to start OpaqueMove each time "
  49.                                 "your Amiga boots?  If so, an icon to launch "
  50.                                 "OpaqueMove will also be copied to your "
  51.                                 "sys:WBStartup directory."))
  52.    
  53.    (set #reinst-prompt     (cat "The " @app-name " directory was last "
  54.                                 "installed in %s.  Do you "
  55.                                 "wish to use this location again?"))
  56. ))
  57.  
  58.  
  59. ;;------------------------------ french messages -----------------------------
  60.  
  61. (if (= @language "français")
  62.  (
  63.  
  64.    (set #welcome           (cat "Bienvenu dans l'utilitaire d'installation de " @app-name "."))
  65.    (set #bad-MUI (cat "Vous devez utiliser MUI 3.2 ou plus pour utliser " @app-name
  66.                                 "2.0."))
  67.    (set #bad-OS            (cat "Vous devez utiliser l'OS 3.x pour utiliser " @app-name
  68.                                 "2.0."))
  69.    (set #dir-choice (cat "Choisissez l'emplacement où le répertoire de " @app-name
  70.                                 " sera créé."))
  71.    
  72.    (set #copy (cat "Copie de " @app-name " en cours..."))
  73.    (set #wbstrt            (cat "Installation de " @app-name " dans la WBStartup"))
  74.    (set #diricon           (cat "Installation de l'icône du répertoire..."))
  75.    (set #doc-copy (cat "Copie de la documentation en cours..."))
  76.    (set #tooltype-prompt   (cat "Réglage des Types d'Outils..."))
  77.    (set #update            (cat "Mise à jour "))
  78.    
  79.    (set #browser-prompt    (cat "Il vaut mieux lire la documentation HTML "
  80.                                 "avec un browser comme IBrowse qui supporte les "
  81.                                 "tables.  Entrez la commande utilisée pour envoyer "
  82.                                 "un URL à votre browser.  Un %s sera "
  83.                                 "remplacé par l'URL de la documentation "
  84.                                 "d'OpaqueMove.  Par exemple, pour IBrowse vous "
  85.                                 "pouvez  entrer\n\n"
  86.                                 "Internet:IBrowse/IBrowse URL %s"))
  87.    
  88.    (set #replbr-prompt     (cat "Une ligne d'appel à un browser existe déjà. "
  89.                                 "Voulez-vous la mettre à jour?"))
  90.    
  91.    (set #wbstart-prompt    (cat "Désirez-vous démarrer OpaqueMove dès l'initialisation "
  92.                                 "de votre Amiga?  Si oui, un icône de lancement "
  93.                                 "d'OpaqueMove sera aussi copié dans votre "
  94.                                 "répertoire sys:WBStartup."))
  95.    
  96.    (set #reinst-prompt     (cat "le répertoire " @app-name " était déjà "
  97.                                 "installé dans %s.  Désirez-vous "
  98.                                 "utiliser cet emplacement à nouveau?"))
  99. ))
  100.  
  101. ;=============================================================================
  102. ; Installation procedure
  103. ;=============================================================================
  104.  
  105. ; -- check for existance of MUI: ---------------------------------------------
  106.  
  107. (welcome #welcome)
  108.  
  109. (if (< (exists "MUI:") 2) ( abort #bad-MUI ) )
  110. (if (< (getversion "exec.library" (resident)) 2555904) (abort #bad-OS))
  111.  
  112. ; -- select our install dir --------------------------------------------------
  113.  
  114. (set LastDir "")
  115. (set OM-Dir  "")
  116.  
  117. (if (exists "ENV:OpaqueMove/OM-Dir")
  118.     ((set LastDir (getenv "OpaqueMove/OM-Dir"))
  119.      (if (not (exists (tackon LastDir "OpaqueMove/OpaqueMove")))
  120.          (set LastDir ""))))
  121.  
  122. (complete 10)
  123. (set Reuse 0)
  124. (if LastDir
  125.     (if (askbool (prompt  (#reinst-prompt LastDir))
  126.                  (help    @askbool-help)
  127.                  (default 1))
  128.         ((set Reuse 1)
  129.          (set OM-Dir (tackon LastDir "OpaqueMove")))))
  130.  
  131. (if (= OM-Dir "")
  132.     (set OM-Dir
  133.          (tackon (askdir (prompt #dir-choice )
  134.                          (help "")
  135.                          (default "SYS:Utilities")
  136.                          (newpath))
  137.                  @app-name)))
  138.  
  139.  
  140. ; -- copy our files into place -----------------------------------------------
  141.  
  142. (complete 20)
  143.  
  144. (set @default-dest OM-Dir)
  145.  
  146. (copyfiles
  147.  (prompt #copy) (help   @copyfiles-help)
  148.  (infos)
  149.  (source "/") (dest OM-Dir)
  150.  (choices "Docs-TXT" "Docs-HTML" "Brushes" "OpaqueMove" "Contrib" "Catalogs"
  151.           "Remove" "ReadMe.MUI" "ReadMe.TXT"))
  152.  
  153. (complete 55)
  154.  
  155. (copyfiles
  156.  (prompt #copy) (help   @copyfiles-help)
  157.  (source "//") (dest (pathonly OM-Dir))
  158.  (choices "OpaqueMove.info"))
  159.  
  160. (complete 58)
  161.  
  162. (tooltype (dest (tackon (pathonly OM-Dir) "OpaqueMove"))
  163.                (prompt #diricon)
  164.                (noposition))
  165.  
  166. (complete 60)
  167.  
  168. ; -- install icon in WBStartup if needed & requested -------------------------
  169.  
  170. (if (askbool (prompt  #wbstart-prompt)
  171.              (help    @askbool-help)
  172.              (default 1))
  173.     ((copyfiles (prompt #wbstrt) (help @copyfiles-help)
  174.                 (source "/Icons") (dest "sys:WBStartup")
  175.                 (choices "OpaqueMove.info"))
  176.      (tooltype (dest "sys:WBStartup/OpaqueMove")
  177.                (prompt #wbstrt)
  178.                (setdefaulttool (tackon OM-Dir "OpaqueMove"))
  179.                (noposition))))
  180.  
  181. (complete 70)
  182.  
  183.  
  184. ; -- add or update the browser launcher script -------------------------------
  185.  
  186. (set DocLauncher (tackon OM-Dir "Docs-HTML/English/OpaqueDocs"))
  187. (set UpdateLauncher 0)
  188.  
  189. (if (exists DocLauncher)
  190.     (if (askbool (prompt  #replbr-prompt)
  191.                  (help    @askbool-help)
  192.                  (default 1))
  193.         ((delete DocLauncher)
  194.          (set    UpdateLauncher 1)))
  195.   (set    UpdateLauncher 1))
  196.  
  197. (if UpdateLauncher
  198.     ((set LaunchCmd (askstring (prompt #browser-prompt)
  199.                                (help    @askstring-help)
  200.                                (default "Work:IBrowse/IBrowse URL %s")))
  201.      (textfile (dest DocLauncher)
  202.                (append (cat ";!c:execute\n"
  203.                             "stack 64000\n"
  204.                             "set wd `cd`\n"
  205.                             (LaunchCmd "file://localhost/${wd}/Index.html")
  206.                             "\n")))))
  207.  
  208.  
  209. ; -- create env vars ---------------------------------------------------------
  210.  
  211. (complete 80)
  212.  
  213. (makedir "ENV:OpaqueMove")
  214. (makedir "ENVARC:OpaqueMove")
  215.  
  216. (if (exists "ENV:OpaqueMove/OM-Dir")    (delete "ENV:OpaqueMove/OM-Dir"))
  217. (if (exists "ENVARC:OpaqueMove/OM-Dir") (delete "ENVARC:OpaqueMove/OM-Dir"))
  218.  
  219. (textfile (dest (tackon "ENV:OpaqueMove"    "OM-Dir"))
  220.           (append (pathonly OM-Dir)))
  221. (textfile (dest (tackon "ENVARC:OpaqueMove" "OM-Dir"))
  222.           (append (pathonly OM-Dir)))
  223.  
  224.  
  225. (complete 100)
  226.  
  227. (exit)
  228.